home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00783_SU-RN ge.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  4.9 KB  |  124 lines
  1. on renseigne txt1, sty1, txt2, sty2, nCurs
  2.   set the textStyle of field "ZI4" to sty1
  3.   set the text of field "ZI4" to txt1
  4.   set the textStyle of field "ZI5" to "plain"
  5.   set the textStyle of field "ZI5" to sty2
  6.   set the text of field "ZI5" to txt2
  7.   curseur(nCurs)
  8. end
  9.  
  10. on exitFrame
  11.   global gLocLabel
  12.   go(label(gLocLabel))
  13. end
  14.  
  15. on idle
  16.   global gBarChron, gSurvolAct, gSurvolPrec, gListSuj, gMaxBoutons, gEtaSpir, gSujet0, g1erSprChr, g1erSprNav, g1erSprLoc, gListCod, gEtudAct, gEtatEtud, gMessDef1, gMessDef2, gMessSty1, gMessSty2, gSprVideo1, gActVideo1, gTraduit
  17.   if not (the mouseDown) then
  18.     set MsCast to the mouseCast
  19.     if MsCast > 0 then
  20.       if not gEtaSpir then
  21.         set gSurvolAct to 0
  22.         repeat with monSpr = g1erSprChr to gMaxBoutons
  23.           if rollOver(monSpr) and (the castNum of sprite monSpr <> 0) and the visible of sprite monSpr then
  24.             set gSurvolAct to monSpr
  25.             exit repeat
  26.           end if
  27.         end repeat
  28.         if gSurvolAct <> gSurvolPrec then
  29.           if gSurvolAct <> 0 then
  30.             if (gSurvolAct >= g1erSprChr) and (gSurvolAct <= (g1erSprChr + 9)) then
  31.               gBarChron(survol, gSurvolAct, the number of cast "ZI4")
  32.             end if
  33.             if (gSurvolAct >= g1erSprNav) and (gSurvolAct <= (g1erSprNav + 6)) then
  34.               if gSurvolAct = g1erSprNav then
  35.                 renseigne(getAt(gTraduit, 12), "bold", " ", gMessSty2, 7)
  36.               end if
  37.               if gSurvolAct = (g1erSprNav + 1) then
  38.                 renseigne(getAt(gTraduit, 26) && getAt(gTraduit, 3), "bold", " ", gMessSty2, 7)
  39.               end if
  40.               if gSurvolAct = (g1erSprNav + 2) then
  41.                 renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 5), "bold", " ", gMessSty2, 7)
  42.               end if
  43.               if gSurvolAct = (g1erSprNav + 3) then
  44.                 renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 4), "bold", " ", gMessSty2, 7)
  45.               end if
  46.               if gSurvolAct = (g1erSprNav + 4) then
  47.                 renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 7), "bold", " ", gMessSty2, 7)
  48.               end if
  49.               if gSurvolAct = (g1erSprNav + 5) then
  50.                 renseigne(getAt(gTraduit, 27), "bold", " ", gMessSty2, 1)
  51.               end if
  52.               if gSurvolAct = (g1erSprNav + 6) then
  53.                 renseigne(getAt(gTraduit, 28), "bold", " ", "bold", 1)
  54.               end if
  55.             end if
  56.             if (gSurvolAct >= g1erSprLoc) and (gSurvolAct <= (g1erSprLoc + 3)) then
  57.               set monAct to char 3 to 4 of word 1 of the name of cast MsCast
  58.               set monTxt2 to " "
  59.               set monCur to 1
  60.               if (monAct = "SU") or (monAct = "CO") or (monAct = "HI") or (monAct = "EN") then
  61.                 if monAct = "SU" then
  62.                   set monTxt2 to getAt(gTraduit, 32)
  63.                 end if
  64.                 if monAct = "CO" then
  65.                   set monTxt2 to getAt(gTraduit, 33)
  66.                 end if
  67.                 if monAct = "HI" then
  68.                   set monTxt2 to getAt(gTraduit, 34)
  69.                   set monCur to 7
  70.                 end if
  71.                 if monAct = "EN" then
  72.                   set monTxt2 to getAt(gTraduit, 35)
  73.                 end if
  74.                 renseigne(gMessDef1, "bold", monTxt2, "bold", monCur)
  75.               end if
  76.             end if
  77.             if (gSurvolAct >= (g1erSprLoc + 4)) and (gSurvolAct <= (g1erSprLoc + 5)) then
  78.               set monAct to word 1 of the name of cast MsCast
  79.               set monEtat to word 2 of the name of cast MsCast
  80.               set monTxt1 to " "
  81.               set monTxt2 to " "
  82.               set monCur to 7
  83.               if monEtat = "0" then
  84.                 set monTxt1 to getAt(gTraduit, 36)
  85.                 set monTxt2 to gSujet0(Le_Nom)
  86.               else
  87.                 if monEtat = "1" then
  88.                   set monTxt1 to getAt(gTraduit, 37)
  89.                   set moncod to gSujet0(Le_NumPar)
  90.                   set monSuj to getAt(gListSuj, moncod)
  91.                   set monTxt2 to monSuj(Le_Nom)
  92.                 else
  93.                   nothing()
  94.                 end if
  95.               end if
  96.               renseigne(monTxt1, "bold", monTxt2, "bold italic", monCur)
  97.             end if
  98.           else
  99.             set monEpok to gSujet0(Le_Epoque)
  100.             gBarChron(fleche, 0, monEpok, 2)
  101.             gBarChron(fleche, 1, monEpok, 0)
  102.             renseigne(gMessDef1, gMessSty1, gMessDef2, gMessSty2, -1)
  103.           end if
  104.           set gSurvolPrec to gSurvolAct
  105.         end if
  106.       else
  107.         if MsCast > 0 then
  108.           if the number of words in the name of cast MsCast = 2 then
  109.             if (word 2 of the name of cast MsCast = "1") or (word 2 of the name of cast MsCast = "0") then
  110.               curseur(1)
  111.             else
  112.               curseur(-1)
  113.             end if
  114.           else
  115.             curseur(-1)
  116.           end if
  117.         else
  118.           curseur(-1)
  119.         end if
  120.       end if
  121.     end if
  122.   end if
  123. end
  124.